'Home assignment for IT310
'VB368 #8
'due by 04/06/01
'from Maksim Ivanenko


Option Explicit

Private Sub cmdDisplay_Click()

'declaring type
Dim varCount As Integer, varFib1 As Integer, varFib2 As Integer, varFib3 As Integer


'first two Fibonacci numbers are:
varFib1 = 1
Print varFib1

varFib2 = 1
Print varFib2


'to calculate other 8 Fibbonacci numbers
For varCount = 1 To 8

'formula for next Fibonacci number
varFib3 = varFib1 + varFib2

'print result
Print varFib3

'reassign new  values for next calculation
varFib1 = varFib2
varFib2 = varFib3

'end of loop
Next

End Sub

Private Sub cmdExit_Click()
'to end run
End
End Sub